home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / sh9301b.lha / ARexx-Utilities(S.55) / DelInfo.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-12  |  1KB  |  57 lines
  1. /* ======== DelInfo.rexx ======== */
  2. options prompt " Verzeichnis u. Option eingeben > "
  3. pull dirname
  4. befehl = "dir >ram:dummy" dirname
  5. say " Bitte warten ..."
  6. /* AmigaDOS-Befehl ausführen */
  7. address COMMAND befehl
  8.  
  9. /* Dateien öffnen */
  10.   open(lese,"ram:dummy","r")
  11.   open(sende,"ram:Dir.txt","w")
  12.  
  13. /* Datum und Uhrzeit holen */
  14. datum=DATE();dd=left(datum,2)
  15. if left(dd,1)="0" then dd=right(dd,1)
  16. /* Ausgabestring formatieren */
  17. dt= DATE("W") dd DATE("M") right(datum,4) "-" TIME()
  18.  
  19. /* Überschrift */
  20. writeln(sende,"Directory von" dirname)
  21. writeln(sende,dt)
  22.  
  23. /* Umformatierungs-Schleife */
  24. do while ~eof(lese)
  25.  zeile= readln(lese)
  26.  y=" ";n=0
  27.  /* Leerzeichen für ermitteln */
  28.  do while y=" " & n< length(zeile)
  29.   n=n+1
  30.   y=substr(zeile,n,1)
  31.   end
  32.  if n~=0 then n=n-2
  33.   y=copies(" ",n)
  34.  /* Zeilen-Parser */
  35.  parse var zeile eins zwei
  36.  zwei=strip(zwei,"b")
  37.   if zwei="(dir)" then do
  38.     eins= eins || zwei
  39.     writeln(sende,y || eins)
  40.     end
  41.   else do
  42.   if index(eins,'.info')=0 & length(eins)>0
  43.     then writeln(sende,y || eins)
  44.   if index(zwei,'.info')=0 & length(zwei)>0
  45.     then writeln(sende,y || zwei)
  46.   end
  47. end
  48.  
  49. /* Geöffnete Dateien schließen */
  50. call close(lese)
  51. call close(sende)
  52. /* Hilfs-Datei schließen */
  53. address COMMAND
  54. 'delete >NIL: ram:dummy'
  55. 'echo "*ec"'
  56. 'more ram:Dir.txt'
  57.